home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / windows.arc / VAR.INC < prev    next >
Encoding:
Text File  |  1985-02-23  |  1.3 KB  |  25 lines
  1. Const MaxScreens = 8;     { Number of Windows Allowed, do not Change }
  2.       Screen_seg = $B800; { Change to #B000 for MonoChrome, Change
  3.                             then # sign to a Dollar sign Though. }
  4.       Data_Addr = $0000;
  5.       Fc        : Array[1..4, 1..7] of Integer
  6.                 = ((218, 196, 191, 179, 192, 196, 217),
  7.                    (201, 205, 187, 186, 200, 205, 188),
  8.                    (213, 205, 184, 179, 212, 205, 190),
  9.                    (219, 219, 219, 219, 219, 219, 219));
  10.  
  11. type maxstr     = string[80];
  12.      window_rec = record
  13.                         x1,x2,y1,y2,c1,b1,w1,w2: Integer;
  14.                         Screen: Array[1..4000] of byte;
  15.                   end;
  16.  
  17. var  Stack_Top,Last_Window_Num,
  18.      line_pos,F1         : Integer;
  19.      screen              : Array[1..4000] of byte;
  20.      real_screen         : Array[1..4000] of byte absolute Screen_Seg:Data_Addr;
  21.      Page_1              : Array[1..4000] of byte absolute Screen_Seg:$1000;
  22.      Imig                : Array [1..MaxScreens] of Window_rec;
  23.      Original            : Array[1..4000] of byte;
  24.      Coords              : Array[1..8,1..MaxScreens] of Integer;
  25.